home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_87 / unkloade.pas < prev    next >
Pascal/Delphi Source File  |  1995-01-01  |  707b  |  42 lines
  1. UNIT UnkLoader;
  2.  
  3. INTERFACE
  4.  
  5. USES Objects,
  6.      SongUnit;
  7.  
  8.  
  9.  
  10.  
  11. PROCEDURE LoadJMFileFormat  (VAR Song: TSong; VAR St: TStream; VAR Header: TSongHeader);
  12.  
  13.  
  14.  
  15.  
  16. IMPLEMENTATION
  17.  
  18. TYPE
  19.   TModJMIdString  = ARRAY[1..6] OF CHAR; { JMPlayer Id string (at the start of the file). }
  20.  
  21. CONST
  22.   ModJMIdString  : TModJMIdString = ('J', 'M', 'P', 'L', 'A', 'Y');
  23.  
  24.  
  25.  
  26.  
  27. PROCEDURE LoadJMFileFormat(VAR Song: TSong; VAR St: TStream; VAR Header: TSongHeader);
  28.   VAR
  29.     ModJM : TModJMIdString ABSOLUTE Header;
  30.   BEGIN
  31.     Song.FileFormat := mffJMPlayer;
  32.  
  33.     IF ModJM = ModJMIdString THEN
  34.       Song.Status := msFileFormatNotSupported
  35.     ELSE
  36.       Song.Status := msNotLoaded;
  37.   END;
  38.  
  39.  
  40.  
  41.  
  42. END.